home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / fccrf / vector.asc < prev    next >
Text File  |  1990-10-14  |  3KB  |  86 lines
  1. 10    CLS
  2. 20    PRINT CHR$(23)
  3. 30    PRINT TAB(10)"DIRECTIONAL ARRAY"
  4. 40    PRINT TAB(10)"VECTOR ANALYSIS"
  5. 50    PRINT TAB(10)"BY MARK CHAMBERS"
  6. 60    PRINT TAB(10)"WJYO/ WORL RADIO"
  7. 65    '305/298-5510
  8. 70    FOR X=1 TO 1000:NEXT
  9. 80    '
  10. 90    PRINT"Directional Array Vector Analysis"
  11. 100   INPUT"Enter number of towers ";T
  12. 110   CLS
  13. 120   FOR X=1 TO T
  14. 130   '
  15. 140   PRINT"Enter tower # ";X;"Relative amplitude"
  16. 150   INPUT I(X)
  17. 160   PRINT"Enter tower tower #";X;"Phase reading"
  18. 170   INPUT P(X)
  19. 180   NEXT X
  20. 190   '
  21. 200   PRINT"Enteries are  :"
  22. 210   FORM$=        "  ##.##      +###.##"
  23. 220   PRINT TAB(10) " Amplitude        Phase"
  24. 230   FOR X=1 TO T
  25. 240   PRINT"Tower #";X;":"; USINGFORM$;I(X), P(X)
  26. 250   NEXT X
  27. 260   PRINT"Are all entries correct  (Y or N)?"
  28. 270   INPUT A$:A=ASC(A$)
  29. 280   IF A=89 OR A=121 THEN 310:' Y
  30. 290   IF A=78 OR A=110 THEN 110:' N
  31. 300   GOTO 270
  32. 310   INPUT"Which is your reference tower";REF
  33. 320   '
  34. 330   FOR X=1 TO T
  35. 340   '
  36. 350   PRINT"Enter the angle between the space reference axis and line from the space reference point (Tower #";REF;") to the tower #";X
  37. 360   INPUT PH2(X)
  38. 370   PRINT"Enter distance in degrees between tower #";X;" and tower #";REF
  39. 380   INPUT S(X)
  40. 390   NEXT X
  41. 400   INPUT"Enter the desired monitor point in degrees ";M
  42. 410   '
  43. 420   FOR X=1 TO T
  44. 430   A1(X)=PH2(X)-M:A(X)=COS(A1(X)*1.745329E-02)
  45. 440   B(X)=(S(X)*A(X))+P(X)
  46. 450   NEXT X
  47. 460   STYLE$="!     !     !     !     !    !"
  48. 470   F1$="**###.##   **+###.##   **+###.##"
  49. 480   PRINT"Monitor Point Bearing:   ";M;" Degrees"
  50. 490   PRINT TAB(12);  USINGSTYLE$;"Ratio","Phase","Vector"
  51. 500   FOR X=1 TO T
  52. 510   PRINT"Tower #";X;":"; USINGF1$;I(X),P(X),FIX(B(X))
  53. 520   NEXT X
  54. 530   PRINT
  55. 540   PRINT"Do you wish to change Tower parameters, Monitor point,"
  56. 550   PRINT"Re-run entire program or End  (T,M,R,E) "
  57. 560   INPUT A$:A=ASC(A$):IF A$="" THEN 560 ELSE 580
  58. 570   PRINT"Enter desired selection":FOR Q=1 TO 80:NEXT Q:PRINT"                ";:FOR Q=1 TO 20:NEXT Q:GOTO 560
  59. 580   IF A=84 OR A=116 THEN 620:' T
  60. 590   IF A=77 OR A=109 THEN 400:' M
  61. 600   IF A=82 OR A=114 THEN 80:'  R
  62. 610   IF A=69 OR A=101 THEN END:' E
  63. 620   PRINT"Which tower parameters do you want to change?"
  64. 630   X=0
  65. 640   PRINT"Enter (1) for tower #1, (2) for tower #2, (3) for tower #3 etc"
  66. 650   A$=STR$(X)
  67. 660   INPUT A$:A=ASC(A$):IF A$="" THEN 660
  68. 670   X=VAL(A$)
  69. 680   GOTO 690
  70. 690   PRINT"Do you want to change Amplitude or Phase of tower #";X;"(A or P)"
  71. 700   INPUT A$:A=ASC(A$):IF A$="" THEN 700
  72. 710   IF A=65 OR A=97 THEN 740:' A
  73. 720   IF A=80 OR A=112 THEN 770:'P
  74. 730   GOTO 700
  75. 740   PRINT"Enter new relative amplitude for tower #";X
  76. 750   INPUT I(X)
  77. 760   GOTO 410
  78. 770   PRINT"Enter new phase reading for tower #";X
  79. 780   INPUT P(X)
  80. 790   GOTO 410
  81. 800   END
  82. 900   ' T     TOWERS IN ARRAY     I     AMPLITUDE OF TOWER
  83. 910   ' REF   REFERENCE TOWER     PH2   ANG SPACE REF AXIS LINE
  84. 920   ' S     DISTANCE            M     MONITOR POINT
  85. 930   ' RADIO WORLD  11/1/86 PAGE 24
  86.